Attribute VB_Name = "update"
Option Explicit

Public Function getGeoVer() As String
Dim geoVer As String, i As Integer, j As Integer, aTmp() As String
Open runPath + "\geoip" For Input As #7
    geoVer = StrConv(InputB(100, 7), vbUnicode)
    i = InStr(1, geoVer, "based on ")
    j = InStr(i, geoVer, vbLf)
    geoVer = Mid$(geoVer, i, j - i)
    aTmp = Split(geoVer, " ")
    getGeoVer = aTmp(2) + " " + aTmp(3) + " " + aTmp(4)
Close #7
End Function


